home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Transmission / whiteline CD Series - Transmission.iso / utilitys / grabber / gfx_pi.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1995-06-07  |  968 b   |  39 lines
  1. DO
  2.   FILESELECT DIR$(0)+"\*.GFX","",fname$
  3.   EXIT IF fname$=""
  4.   RESERVE 50000
  5.   OPEN "i",#1,fname$
  6.   res$=INPUT$(38,#1)
  7.   pal256$=INPUT$(1024,#1)
  8.   pal16$=INPUT$(32,#1)
  9.   picsize%=LOF(#1)-38-1024-32
  10.   IF picsize%=32000
  11.     BGET #1,HIMEM,picsize%
  12.     SELECT ASC(MID$(res$,1,1))
  13.     CASE 0
  14.       ende$="1"
  15.     CASE 1
  16.       ende$="2"
  17.     CASE 3
  18.       ende$="3"
  19.     ENDSELECT
  20.     OPEN "o",#2,LEFT$(fname$,RINSTR(fname$,"."))+"PI"+ende$
  21.     PRINT #2,CHR$(0);MID$(res$,1,1);pal16$;
  22.     BPUT #2,HIMEM,picsize%
  23.     CLOSE #2
  24.     del
  25.   ELSE
  26.     CLS
  27.     PRINT "This is no ST-compatible picture!"
  28.     ~INP(2)
  29.   ENDIF
  30.   CLOSE #1
  31. LOOP
  32. PROCEDURE del
  33.   ALERT 2,"Delete GFX-File?",1,"No|Yes",a#
  34.   IF a#=2
  35.     KILL fname$
  36.   ENDIF
  37.   CLS
  38. RETURN
  39.